Top 10k strings from Molgrum v89.1 (1989)(Ian Hughes)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 y+w+q*(v9=o)
2 v0+"1NTNK3":
2 p$="MIX3Y2Z1NT"
2 p$="MIR1X3R2K3":
2 m$(l,p)="6":
2 g(s,y+q)):
2 Spare space
2 Number of control codes to follow. DO NOT ALTER!
2 Line spacing = 8/72 inch
2 "MOLG.CODE"
2 "MOLG.BASIC"
2 "54.75"*pi:
2 Assign graphics mode K to one-to-one plotting (makes circles round)
1 z,o;"EPSON printer?":
1 z$=z$+" "+m$(l,s*i
1 z$=m$(l,r):
1 z$(p)="Q")
1 y+q)+i*pi*(h>y+q)):
1 x$(p,j),p)=x$(i,j)
1 v8=n*pi/q:
1 v7=(v3=t):
1 v7=(v3=p):
1 v6;"_______"(
1 v5=v5+y+r:
1 v1=pt+v*z+(mc=q)*(z+u)
1 v1=pp-p+g*w:
1 v0=v0+(sp=q):
1 s$(c)(u+i)=" "
1 s$(b)(t)<hp
1 s$(ad)(t)<hp
1 s$(ac)(t)<hp
1 s$(ac)(h):
1 s$(a)(t)<hp
1 r+s*j,p+r*i;
1 r(b)+h-u+i-
1 pt+q+u*c,i*y*y:
1 pm-p+i+t*mn,
1 p(v3-q,n,i/p):
1 p(s,z+q,i*i):
1 p(s,z+p,i):
1 p(s,y,h*pi):
1 p(s,y,-v6)
1 p(s,y,(in+
1 p(s,y+t,v9+n-i):
1 p(s,y+t,-n):
1 p(s,y+s+v0,(in+
1 p(s,y+s+j,o):
1 p(s,y+s+i,-o(i)):
1 p(s,y+s+h,i):
1 p(s,y+r,n*pi*(p-q*(mc=q))):
1 p(s,y+r,-(mc=o)*
1 p(s,y+q,o):
1 p(s,y+q,in+
1 p(s,y+q,i*pi):
1 p(s,y+q,-v6):
1 p(s,y+p,-v6+
1 p(s,i+y+s,-
1 p(s,h,i*(h
1 p$=p$+"f"+a$(i):
1 p$=p$+"V*ID":
1 p$=p$+"MITZ1Y2X3R1K3":
1 p$=p$+"MIR3*N"
1 p$="MIY2Z1NT":
1 p$="MITZ1Y2X3":
1 p$="MITK3":
1 p$="MITK3"
1 p$="MIR1X4R2K3":
1 p$="MIR1X3Z4X5R2K3"
1 p$="MIR1TR2K3":
1 o,y;"SHADING SET ";mc:
1 o,o;"Frame ";fn;" of ";g:
1 o(v0)=o(v0)+in:
1 n=v5+v1-p:
1 n$(n)+" New":
1 m$(y+u,p)="6":
1 m$(y+u,p)="5":
1 m$(x,p)="2"
1 m$(q,p)="4"
1 m$(l,q)="I":
1 m$(l,q)="C":
1 m$(l,q)-w*w:
1 m$(l,p)="5":
1 m$(l,p)="2":
1 i-p,o;i;") ";:
1 i+r,r;i;") ";
1 i$=i$+" "(
1 h=w+y+(z+t)*
1 go+l*gf+mc*t*y
1 gm+mc*y*y:
1 g(s,y+s+v0))):
1 g(s,y+p)):
1 g(s,x)*h-in*
1 g(s,w)*h-in*hp)):
1 g(s,i))/q:
1 f=q*(i$="-")+(i$="+"):
1 f(n),hp*(f-p):
1 e-y,mc*hs:
1 e-s,i*y*y:
1 e$="Wrong file":
1 e$="VdW ratio (0.1 to 1.25)":
1 e$="Too many valences":
1 e$="Too many atoms":
1 e$="Separation":
1 e$="Residue"+e$
1 e$="No room in file":
1 e$="No free valences"
1 e$="New radius (0.10-2.50)":
1 e$="Line no.":
1 e$="Film full":
1 e$="Bond length":
1 e$="Bond in ring":
1 e$="Ball size (2
1 e$="Atoms not bonded":
1 e$="Atoms in same fragment":
1 e$="Atoms already bonded":
1 e$="Atom not mono-valent":
1 e$="Angle":
1 e$="Angle (deg)":
1 e$=": "+i$+" to":
1 e$=" (0 to 255)":
1 d,(q*f-p)*
1 d,(p-q*f)*
1 c(p$+"Y4*N"):
1 c(p$+"*N"):
1 c(p$+"*N")
1 c(n$+"wD"):
1 c("wMIV*I"):
1 c("wMIC*Nn"):
1 c("nt"+i$):
1 c("MIX3Y2Z1NTK1*"):
1 c("MITZ1Y2K1IY4Z5NTK2*"):
1 c("MIR3*Nw")
1 c("MIR3*N")
1 c("MIR2K3*"):
1 c("MIR1Z1TR3*N")
1 c("C"+n$):
1 c$(v3+v4,q)):
1 c$(v3+v4,p);
1 _______9f SAVE_________
1 _______9e AUTO_________
1 _______9d PLAY_________
1 _______9c CONT_________
1 _______9b MAKE_________
1 _______9a LOAD_________
1 _______8f TORS_________
1 _______8e ANGS_________
1 _______8d LENS_________
1 _______8c XYZ__________
1 _______8b PRIN_________
1 _______8a SCRN_________
1 _______7f NEW__________
1 _______7e CONV_________
1 _______7d DEL__________
1 _______7c BOT__________
1 _______7b TOP__________
1 _______7a CURS_________
1 _______6f MERG_________
1 _______6e SWOP_________
1 _______6d RECL_________
1 _______6c STOR_________
1 _______6b SAVE_________
1 _______6a LOAD_________
1 _______5f GETF_________
1 _______5e JOIN_________
1 _______5d DEL__________
1 _______5c ADDH_________
1 _______5b BRKB_________
1 _______5a MAKB_________
1 _______4f BASC_________
1 _______4e KEYS_________
1 _______4d ALTR_________
1 _______4c HIDE_________
1 _______4b SHOW_________
1 _______4a DISP_________
1 _______3f VIEW_________
1 _______3e SEL__________
1 _______3d ROTB_________
1 _______3c ROTM_________
1 _______3b MOVE_________
1 _______3a ANIM_________
1 _______2f BDMP_________
1 _______2e SDMP_________
1 _______2d COPY_________
1 _______2c MONM_________
1 _______2b MEAS_________
1 _______2a LABL_________
1 _______1f SCR$_________
1 _______1e CONN_________
1 _______1d FILM_________
1 _______1c LIST_________
1 _______1b EDIT_________
1 _______1a L/S__________
1 ______26c GETF (0c)____
1 ______26b EDIT (0b)____
1 ______26a LOAD (0a)____
1 ______25b YES__________
1 ______25a NO___________
1 ______24f ^___________
1 ______24e ^___________
1 ______24d ^___________
1 ______24c ^___________
1 ______24b ^___________
1 ______24a PAGE_________
1 ______23f HIDN_________
1 ______23e WHOL_________
1 ______23d TYPE_________
1 ______23c RES__________
1 ______23b FRAG_________
1 ______23a ATMS_________
1 ______22f DEL__________
1 ______22e MEAS_________
1 ______22d NAME_________
1 ______22c +3H__________
1 ______22b +2H__________
1 ______22a +1H__________
1 ______21d CIRC_________
1 ______21c DIAM_________
1 ______21b SQAR_________
1 ______21a NONE_________
1 ______20c SHAD_________
1 ______20b RAD__________
1 ______20a NAME_________
1 ______19f LOAD_________
1 ______19e SAVE_________
1 ______19d PATS_________
1 ______19c SET2_________
1 ______19b SET1_________
1 ______19a ATYP_________
1 ______18f TABS_________
1 ______18e BSIZ_________
1 ______18d VdW__________
1 ______18c HDRW_________
1 ______18b CLIP_________
1 ______18a BORD_________
1 ______17e FILL_________
1 ______17d BL/S_________
1 ______17c BOND_________
1 ______17b TABS_________
1 ______17a DEFS_________
1 ______16f FRAM_________
1 ______16e MENU_________
1 ______16d DECR_________
1 ______16c INCR_________
1 ______16b REV__________
1 ______16a ACT__________
1 ______15b WHOL_________
1 ______15a FRAG_________
1 ______14c CURS_________
1 ______14b ORIG_________
1 ______14a MOL__________
1 ______13c ZROT_________
1 ______13b YROT_________
1 ______13a XROT_________
1 ______12f SEL__________
1 ______12e ROTB_________
1 ______12d ZOOM_________
1 ______12c ROTM_________
1 ______12b YMOV_________
1 ______12a XMOV_________
1 ______11c OLAP_________
1 ______11b PLAN_________
1 ______11a AXIS_________
1 ______10e CNCL_________
1 ______10d LIST_________
1 ______10c TORS_________
1 ______10b ANGL_________
1 ______10a LEN__________
1 Set up printer control codes used by the machine code routines for screen dumps. 19 codes are used for each of the dump routines. Any unrequired codes should be replaced by 0's. As supplied thecodes are suitable for an Epson LX80 printer.
1 RadiusShade
1 Q to QUITI
1 Move tables
1 MOLGRUM ~
1 MOLG.REMS A
1 MOLG.CODE s#
1 MOLG.BASIC
1 Left margin
1 Left margin
1 Ian Hughes 1989"''
1 IAN HUGHES 19892 LOADEDITGETF
1 FILESIZE>0
1 FILESIZE=240
1 FILESIZE<251
1 DEMO
1 Created with Ramsoft MakeTZX
1 Control codes for SDMP
1 Control codes for BDMP
1 ;FILESIZE;
1 ;"Wait for MOLGRUM to load"
1 ;"User-defined keys:-";
1 ;"Preset keys:-"''
1 ;"MOLGRUM";
1 ;"MAXIMUM FILESIZE IS ";
1 ;"ERROR! ERROR! ERROR! ERROR!";
1 ;" Q QUIT to previous menu"'" R REDRAW current structure"'" F FIT structure to screen area"
1 ;" ATOMS"
1 6 ^ L/SEDITLISTFILMCONNSCR$6 ^LABLMEASMONMCOPYSDMPBDMP6 ^ANIMMOVEROTMROTB SELVIEW6 ^DISPSHOWHIDEALTRKEYSBASC5 ^MAKBBRKBADDH DELJOINGETF3AQLOADSAVESTORRECLSWOPMERG1AQCURS TOP BOT DELCONV NEW6AQSCRNPRIN XYZLENSANGSTORS2AQLOADMAKECONTPLAYAUTOSAVE3BQ LENANGLTORSLISTCNCL 3BQAXISPLANOLAPUSR1USR2USR36CQXMOVYMOVROTMZOOMROTB SEL3 XROTYROTZROT 3 MOLORIGCURS 2 FRAGWHOL 6 ACT REVINCRDECRMENUFRAM5DQDEFSTABSBONDBL/SFILL 6DQBORDCLIPHDRW VDWBSIZTABS6DQATYPSET1SET2PATSSAVELOAD3SQNAME RADSHAD 4 NONESQARDIAMCIRC 6EQ +1H +2H +3HNAMEMEAS DEL5 ATMSFRAG RESTYPEWHOLHIDN6 TOGL ^ ^ ^ ^ ^ 2 NO YES
1 0062000120660235306253022
1 000MIVST*ID000MIV*ID!
1 0+256*2=512 bytes follow
1 0+256*1=256 bytes follow
1 ....s*gm input residue.
1 ....m-y empty F_WORK...
1 ....m menu control.....
1 ....gx exch menu params
1 ....gs select atoms....
1 ....gr redraw..........
1 ....gp page shades.....
1 ....go prepare rotation
1 ....gn name to file....
1 ....gm make bond.......
1 ....gl list monm.......
1 ....gi input OK?.......
1 ....gh addH subroutine.
1 ....gf find atom.......
1 ....ge error report....
1 ....gd-z FIT to screen.
1 ....gd draw............
1 ....gb break bond......
1 ....ga angles..........
1 ....edit control....... (v1=current row, v2=old row, v3=current column, v4=old column, v5=atom at top of page, v6=bright on or off, v7=scroll to another row, v8=new row being entered, v9=cursor printed, v0=line printed, n=current atom number.
1 ....await key press....
1 ....PRINTER controls...
1 ....LOAD/SAVE routines.
1 *FILESIZE:
1 )=pf-r+r*n
1 )=d+y+r+n*(z+t):
1 (w*w+i+x*j):
1 (v1+h))+" New value":
1 (v1*v1+v2*v2):
1 (t-q*(mn=o))+"B":
1 (s-i)*t-p:
1 (pt+t+c*u),mc+n-p:
1 (pf-q+r*c))/w):
1 (pf-p+r*c))/w):
1 (ma*(z+t)/r/
1 (e$);" :";
1 ''''"FILESIZE set to ";filesize''"Should be in the range 1 to 250"''"PLEASE ALTER LINE 1":
1 ''" SELECT - used to select a menu"'" option or an atom"'" UP )"'" DOWN )- cursor movement"'" LEFT ) controls"'" RIGHT )"
1 #sp;"Name Res X Y Z":
1 #p;"scroll?":
1 #p;"Select fragment ";e$:
1 #p;"Select atoms (Q to quit)":
1 #p;"Ready to verify?":
1 #p;"Press key for ";e$:
1 #p;"Play tape.":
1 "a","b","c","alpha","beta","gamma"
1 "SELECT","UP","DOWN","LEFT","RIGHT"
1 "New name: ";
1 "New name (2 chars): ";
1 "Name (up to 4 chars): ";
1 "MOLG.REMS"
1 "Enter ""GO TO M"" for MOLGRUM":
1 "Change letter? ";
1 "Atom type **** :";
1 "87"+h)+"-shift (Ang)":
1 "85")+"-coordinate":
1 "70.5"*pi:
1 "65",mc+n-p:
1 m-z printer type?.....
1 Ian Hughes 1989 ********************************
1 ******************************** Loader for MOLGRUM version 89.1